home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / nanno.cfg < prev    next >
Text File  |  1991-10-19  |  3KB  |  122 lines
  1. /*******************************************************************
  2. /*
  3. /*    NANNO.CFG : Nanno-network 用コンフィグ･ファイル
  4. /*
  5. /*    TABSIZE = 4;
  6. /*
  7.  
  8. nanno_dial {
  9.  
  10. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  11.     DIAL     = "069-39-2022A";
  12. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  13.  
  14.     while ( _NAN_ID = "" )
  15.     {    nanno_setup()
  16.         if ( VAL ! 0 ) { return (-1) }
  17.     }
  18.  
  19.     ID       = _NAN_ID;
  20.     PASSWORD = _NAN_PASSWORD;
  21.  
  22.     term_puts("ATZ\r")
  23.     term_switch( 5,"OK\r")
  24.     if ( VAL < 0 ) { return (-1)}
  25.  
  26. #    /* 第２モデモ初期化コマンド
  27. #    term_puts("AT%2400\r")
  28. #    term_switch( 5,"OK\r")
  29. #    if ( VAL < 0 ) { return (-1)}
  30.  
  31.     tel_call()
  32.     if ( VAL < 0 ) { return (-1)}
  33.  
  34.     term_switch( 30, "HIT RETURN KEY>")
  35.     if ( VAL < 0 ) { return (-1)}
  36.     wait(1)
  37.     term_puts("\r")
  38.  
  39.  
  40.     term_switch( 30, "User ID=")
  41.     if ( VAL < 0 ) { return (-1)}
  42.     wait(1)
  43.     term_puts("\(ID)\r")
  44.  
  45.     term_switch( 30, "Password=")
  46.     if ( VAL < 0 ) { return (-1)}
  47.     wait(1)
  48.     term_puts("\(PASSWORD)\r")
  49.  
  50.     return    (0)
  51. }
  52.  
  53. str_off {
  54.     wind_size_set(x,y,32,32)
  55.     wind_open()
  56.     graph("palette",7,0,0,0)
  57. }
  58. str_on {
  59.     graph("palette",7,176,176,192)
  60.     wind_close()
  61.     wind_init()
  62. }
  63.  
  64. nanno_setup {
  65.     ID       = _NAN_ID;
  66.     PASSWORD = _NAN_PASSWORD;
  67.  
  68.     if ( ID = "" )
  69.     {    ID = "GUEST";
  70.         PASSWORD = "";
  71.     }
  72.     mosget("sw","x","y")
  73.     menu_input("ID",9, x,y, C_CYAN, "Nanno-network のID を入力してください。:")
  74.     if ( VAL < 0 ) {    return    (-1) }
  75.  
  76.     str_off()
  77.     menu_input("PASSWORD",9, x,y, C_YELLOW, "Nanno-network のパスワードを入力してください。:" )
  78.     RET = VAL;
  79.     if ( RET < 0 ) { str_on();    return    (-1) }
  80.  
  81.  
  82.     PASSWORD2 = "";
  83.     menu_input("PASSWORD2",9, x,y, C_YELLOW, "もういちどパスワードを入力してください。" )
  84.     RET = VAL;
  85.     str_on()
  86.     if ( RET < 0 ) {    return    (-1) }
  87.  
  88.     if ( PASSWORD ! PASSWORD2 )
  89.     {    wind_open()
  90.         graph("symbol",65,56, 8,16, OPAQUE,C_RED,C_HWHITE, 1,0,0,1, "パスワードが違っています！！")
  91.         wait(5)
  92.         wind_close()
  93.         return    (-1)
  94.     }
  95.  
  96.     if ( RET < 0 ) {    return    (-1) }
  97.     strlen(PASSWORD)
  98.     LEN = VAL;
  99.     menu_yes_no(x,y,C_CYAN,"Nanno-network の ID : \(ID)\x0Aパスワードは \(LEN) 文字指定されています。\x0A\x0A           よろしいですか？")
  100.     if ( VAL > 0 )
  101.     {    _NAN_ID       = ID;
  102.         _NAN_PASSWORD = PASSWORD;
  103.         return    (0)
  104.     }
  105.     return    (-1)
  106. }
  107.  
  108. /*********************************************************************
  109. /*    行入力コマンド
  110. /*    
  111. /*    【入力】    TCMD    コマンド
  112. /*
  113. TERM_cmdline {
  114. }
  115.  
  116. /*******************************************************************
  117. /*    オートパイロット用 入力行チェックルーチン
  118. /*******************************************************************
  119. AUTO_line {
  120. }
  121.  
  122.